#---------------------------------------------
# Generar datos (Computos 2012) 
#---------------------------------------------
data <- read.table("datos_computos_casillas_diputados.txt", header=TRUE, sep = "|")

# Remover RP
data <- data[!data$TIPO_CANDIDATURA == 3,]

#Missing values
data[is.na(data)] <- 0

# Agregar votos por candidato
attach(data)
data$PAN <- PAN
data$PRI <- PRI + PVEM + PRI_PVEM
data$PRD <- PRD + PT + MC + PRD_PT_MC + PRD_PT + PRD_MC + PT_MC
data$PANAL <- PANAL
detach(data)

# Lista de candidatos
partidos <- c("PAN", "PRI", "PRD", "PANAL")

# Agregar votos por seccion
data <- aggregate(data[,c("LISTA_NOMINAL",partidos)], 
                  by=data[c("ID_ESTADO","D_DISTRITO","SECCION")], 
                  sum, na.rm=TRUE)
